10040 COLOR 18,0: LOCATE 20,5: PRINT "any key";: COLOR 2,0: BEEP
10050 Y$=INKEY$: IF Y$="" THEN 10050
10060 RETURN
10998 '
10999 REM *** Build translate tables
11000 'ascii to murray table for xmt
11020 DATA 0,0,0,0,0,0,0,133,0,0,2,0,0,8,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4, 141,145,148,137,0,154,139,143,146,0,0,140,131,156,157,150,151,147,129, 138,144,149,135,134,152,142,158,0,0,0,153,0
11030 DATA 3,25,14,9,1,13,26,20,6,11,15,18,28,12,24,22,23,10,5,16,7,30,19,29,21, 17,0,133,0,0,0,0,3,25,14,9,1,13,26,20,6,11,15,18,28,12,24,22,23,10,5,16, 7,30,19,29,21,17,0,0,0,0,0,0
11040 FOR I=0 TO 128:READ C(I):NEXT
11050 ' *** In the transmit table, chararacters which require the figs shift have had hex `100' (decimal 128) added to the murray value.
11060 'murray to ascii table for rcv
11070 DATA "","",E,3,"","",A,-," "," ",S,"",I,8,U,7,"","",D,$,R,4,J,',N,",",F,!, C,":",K,(,T,5,Z,"",L,),W,2,H,#,Y,6,P,0,Q,1,O,9,B,?,G,&,f,f,M,.,X,/,V,;, ~,~
11080 FOR I=0 TO 31: FOR J=0 TO 1: READ A$(I,J): NEXT: NEXT: A$(5,1)=CHR$(7): A$(17,1)=CHR$(34): A$(2,0)=CHR$(10): A$(2,1)=CHR$(10): A$(8,0)=CHR$(13): A$(8,1)=CHR$(13)
11090 RETURN
11998 '
11999 REM *** open comm file for receive
12000 OPEN "COM1:110,N,5,2,RS,CS0,DS0,CD0" AS #1:WIDTH #1,255
12005 V=INP(&H3F9) 'save int reg status
12006 OUT &H3F9,0 'disable comm interrupts
12010 OUT &H3FB,(INP(&H3FB) OR 128) 'enable speed change
12020 OUT &H3F8,DIVLSB: OUT &H3F9,DIVMSB 'change speed
12030 OUT &H3FB,(INP (&H3FB) AND 127) 'restore
12035 OUT &H3F9,V 'restore int reg status
12040 RETURN
12498 '
12499 REM *** open comm file for transmit
12500 OPEN "COM1:110,N,5,2,CS0,DS0,CD0" AS #1:WIDTH #1,255
12505 V=INP(&H3F9) 'save int reg status
12506 OUT &H3F9,0 'disable comm interrupts
12510 OUT &H3FB,(INP(&H3FB) OR 128) 'enable speed change
12520 OUT &H3F8,DIVLSB: OUT &H3F9,DIVMSB 'change speed
13085 DEF SEG=0: POKE 1050,PEEK (1052): POKE &H417,&H40: DEF SEG
13090 BEEP: PRINT "Enter Choice: "
13100 CHOICE$=INKEY$
13105 IF CHOICE$="" THEN 13100
13106 CLS
13110 IF LEN(CHOICE$)=2 THEN IF RIGHT$(CHOICE$,1)="P" THEN 15000 ELSE IF RIGHT$(CHOICE$,1)="H" THEN 14000 ELSE GOTO 13010
13120 IF VAL(CHOICE$)=1 THEN 13500 ELSE IF VAL(CHOICE$)=2 THEN 13700 ELSE IF VAL(CHOICE$)=3 THEN 13700 ELSE IF VAL(CHOICE$)=4 THEN CHAIN "asctty" ELSE 13010
15099 '*** this subroutine converts a character from ascii to murray and transmits it
15100 IF X$=CHR$(13) THEN PRINT X$;: PRINT #1,CHR$(2)+CHR$(8)+CHR$(31);: SHIFT=FALSE: RETURN
15110 IF X$=" " THEN PRINT X$;: PRINT #1,CHR$(4)+CHR$(31);: SHIFT=FALSE: RETURN
15120 MU=C(ASC(X$)): IF MU=0 THEN RETURN
15130 IF MU>127 THEN IF NOT SHIFT THEN SHIFT=TRUE: PRINT #1,CHR$(27);
15135 IF MU>127 THEN MU=MU-128: GOTO 15150
15140 IF SHIFT THEN SHIFT=FALSE: PRINT #1,CHR$(31);
15150 PRINT #1,CHR$(MU);: PRINT X$;
15160 RETURN
15199 '
15200 Z=INSTR(";<=>?@ADHC",RIGHT$(X$,1))
15210 ON Z GOTO 16000,16100,16200,16300,16400,16500,16600,16700,16800,16900
15220 GOTO 15080
15998 '
15999 '*** routines to handle function keys
16000 FILENM$="msg1"
16010 GOSUB 17000
16020 GOTO 15080
16099 '
16100 FILENM$="msg2"
16110 GOSUB 17000
16120 GOTO 15080
16199 '
16200 FILENM$="msg3"
16210 GOSUB 17000
16220 GOTO 15080
16299 '
16300 MSG$=CHR$(13)+"cq cq cq cq cq cq cq de aa4l aa4l aa4l bob in raleigh nc"
16310 GOSUB 17500
16320 GOTO 15080
16399 '
16400 MSG$=CHR$(13)+"de aa4l aa4l bob in raleigh nc"
16410 GOSUB 17500
16420 GOTO 15080
16499 '
16500 MSG$=CHR$(13)+"the quick brown fox jumped over the lazy dog's back"+CHR$(13)+"ryryryryryryryryryryryryryryryryryryryryryryryryryryryry"+CHR$(13)+"1m2m3m4m5m6m7m8m9m0"